home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2000 December & 2001 January / PC World Plus! D.bin / games / Age2XTrial.exe / CABFILE / MSGAME.CAB / Data / gamedata_x1.drs / Unnamed File 000026.bina < prev    next >
Text File  |  2000-07-18  |  3KB  |  165 lines
  1. ;best ship-builders = byzantines, japanese, persian, saracen, viking
  2. ;secondary = briton, celts, chinese, turk
  3. ;tertiary = franks, goths, mongols, teuton, 
  4. ;first make sure that there is only _one_ main ship-builder
  5.  
  6. (defrule
  7.     (true)
  8. =>
  9.     (set-goal sea-owner NOTICE)
  10.     (disable-self)
  11. )
  12.  
  13. (defrule
  14.     (taunt-detected any-ally 202)
  15. =>
  16.     (acknowledge-taunt this-any-ally 202)
  17.     (set-goal sea-owner NO)
  18.     (disable-self)
  19. )
  20.  
  21. ;best ship-builders
  22. (defrule
  23.     (goal sea-owner NOTICE)
  24.     (player-in-game any-computer-ally)
  25.     (or
  26.         (or
  27.             (civ-selected byzantine)
  28.             (civ-selected japanese)
  29.         )
  30.         (or
  31.             (civ-selected persian)
  32.             (civ-selected saracen)
  33.         )
  34.     )
  35. =>
  36.     (chat-to-player-using-id every-ally 22408)    ;202
  37.     (set-goal sea-owner YES)
  38.     (disable-self)
  39. )
  40.  
  41. (defrule
  42.     (goal sea-owner NOTICE)
  43.     (player-in-game any-computer-ally)
  44.     (or
  45.         (or
  46.             (civ-selected viking)
  47.             (civ-selected spanish)
  48.         )
  49.         (civ-selected korean)
  50.     )
  51. =>
  52.     (chat-to-player-using-id every-ally 22408)    ;202
  53.     (set-goal sea-owner YES)
  54.     (disable-self)
  55. )
  56.  
  57. ;mediocre ship-builders
  58. (defrule
  59.     (goal sea-owner NOTICE)
  60.     (game-time > 10)
  61.     (player-in-game any-computer-ally)
  62.     (or
  63.         (or
  64.             (civ-selected briton)
  65.             (civ-selected celtic)
  66.         )
  67.         (or
  68.             (or
  69.                 (civ-selected chinese)
  70.                 (civ-selected turkish)
  71.             )
  72.             (civ-selected mayan)
  73.         )
  74.     )
  75. =>
  76.     (chat-to-player-using-id every-ally 22408)    ;202
  77.     (set-goal sea-owner YES)
  78.     (disable-self)
  79. )
  80.  
  81. ;inferior ship-builders
  82. (defrule
  83.     (goal sea-owner NOTICE)
  84.     (game-time > 20)
  85.     (player-in-game any-computer-ally)
  86.     (or
  87.         (or
  88.             (civ-selected frankish)
  89.             (civ-selected gothic)
  90.         )
  91.         (or
  92.             (civ-selected mongol)
  93.             (civ-selected teutonic)
  94.         )
  95.     )
  96. =>
  97.     (chat-to-player-using-id every-ally 22408)    ;202
  98.     (set-goal sea-owner YES)
  99.     (disable-self)
  100. )
  101.  
  102. ;inferior ship-builders part 2
  103. (defrule
  104.     (goal sea-owner NOTICE)
  105.     (game-time > 20)
  106.     (player-in-game any-computer-ally)
  107.     (or
  108.         (civ-selected aztec)
  109.         (civ-selected hun)
  110.     )
  111. =>
  112.     (chat-to-player-using-id every-ally 22408)    ;202
  113.     (set-goal sea-owner YES)
  114.     (disable-self)
  115. )
  116.  
  117. ;don't let the main ship builder join the human player!
  118. (defrule
  119.     (goal sea-owner YES)
  120.     (not (goal personality 0) )
  121. =>
  122.     (set-goal personality 0)
  123. )
  124.  
  125. ;make sure we can ALWAYS build a transport-ship ...
  126. (defrule
  127.     (population >= pop-cap)
  128.     (building-type-count dock > 0)
  129.     (unit-type-count transport-ship == 0)
  130.     (can-afford-unit transport-ship)
  131.     (attack-soldier-count > 0)
  132. =>
  133.     (delete-unit fishing-ship)
  134. )
  135.  
  136. (defrule
  137.     (population >= pop-cap)
  138.     (building-type-count dock > 0)
  139.     (unit-type-count fishing-ship == 0)
  140.     (unit-type-count transport-ship == 0)
  141.     (can-afford-unit transport-ship)
  142.     (attack-soldier-count > 0)
  143. =>
  144.     (delete-unit villager)
  145. )
  146.  
  147. (defrule
  148.     (unit-type-count-total transport-ship == 0)
  149.     (military-population > 10)
  150.     (can-train-with-escrow transport-ship)
  151. =>
  152.     (release-escrow wood)
  153.     (train transport-ship)
  154. )
  155.  
  156. (defrule
  157.     (attack-soldier-count >= 20)
  158.     (research-completed ri-careening)
  159.     (unit-type-count-total transport-ship < 3)
  160.     (can-train transport-ship)
  161. =>
  162.     (train transport-ship)
  163. )
  164.  
  165.